inherited fmEditPodtemaUK: TfmEditPodtemaUK
  Left = 336
  Top = 491
  Width = 656
  Height = 220
  Caption = 'fmEditPodtemaUK'
  Constraints.MinHeight = 220
  Constraints.MinWidth = 656
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 166
    Width = 648
  end
  inherited Panel1: TPanel
    Width = 648
    inherited BitBtn1: TBitBtn
      Left = 478
    end
    inherited BitBtn2: TBitBtn
      Left = 558
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 648
    Height = 121
    Align = alClient
    TabOrder = 2
    DesignSize = (
      648
      121)
    object Label1: TLabel
      Left = 12
      Top = 41
      Width = 29
      Height = 13
      Caption = #1059#1088#1086#1082':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 65
      Width = 60
      Height = 13
      Caption = #1059#1088#1086#1082' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 12
      Top = 17
      Width = 46
      Height = 13
      Caption = #8470' '#1091#1088#1086#1082#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 236
      Top = 17
      Width = 86
      Height = 13
      Caption = #8470' '#1091#1088#1086#1082#1072' '#1074' '#1090#1077#1084#1077':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 12
      Top = 90
      Width = 73
      Height = 13
      Caption = #1058#1080#1087' '#1082#1086#1085#1090#1088#1086#1083#1103':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 112
      Top = 37
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'PODTEMA'
      DataBinding.DataSource = dsPodtemaUK
      TabOrder = 0
      Width = 521
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 112
      Top = 61
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'PODTEMA_ENG'
      DataBinding.DataSource = dsPodtemaUK
      TabOrder = 1
      Width = 521
    end
    object cxDBTextEdit3: TcxDBTextEdit
      Left = 112
      Top = 13
      DataBinding.DataField = 'NUMUK'
      DataBinding.DataSource = dsPodtemaUK
      TabOrder = 2
      Width = 113
    end
    object cxDBTextEdit5: TcxDBTextEdit
      Left = 336
      Top = 13
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'NUMTEMA'
      DataBinding.DataSource = dsPodtemaUK
      TabOrder = 3
      Width = 113
    end
    object cbControl: TcxDBLookupComboBox
      Left = 112
      Top = 86
      DataBinding.DataField = 'CONTROLTYPE'
      DataBinding.DataSource = dsPodtemaUK
      Properties.ClearKey = 46
      Properties.DropDownListStyle = lsFixedList
      Properties.KeyFieldNames = 'CONTROLTYPE'
      Properties.ListColumns = <
        item
          FieldName = 'DESC'
        end>
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsControlType
      TabOrder = 4
      Width = 265
    end
  end
  object dsPodtemaUK: TDataSource
    DataSet = qPodtemaUK
    Left = 248
    Top = 112
  end
  object qPodtemaUK: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select p.*'
      'from PodtemaUK p'
      'where p.pisdelete is null and p.idpodtemauk = :idpodtemauk')
    UpdateObject = quPodtemaUK
    GeneratorField.Field = 'SDID'
    Left = 280
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idpodtemauk'
        ParamType = ptUnknown
      end>
    object qPodtemaUKIDPODTEMAUK: TIntegerField
      FieldName = 'IDPODTEMAUK'
      Origin = '"PODTEMAUK"."IDPODTEMAUK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPodtemaUKIDTEMAUK: TIntegerField
      FieldName = 'IDTEMAUK'
      Origin = '"PODTEMAUK"."IDTEMAUK"'
    end
    object qPodtemaUKPODTEMA: TIBStringField
      FieldName = 'PODTEMA'
      Origin = '"PODTEMAUK"."PODTEMA"'
      Size = 255
    end
    object qPodtemaUKPODTEMA_ENG: TIBStringField
      FieldName = 'PODTEMA_ENG'
      Origin = '"PODTEMAUK"."PODTEMA_ENG"'
      Size = 255
    end
    object qPodtemaUKKOLTIME: TIntegerField
      AutoGenerateValue = arDefault
      CustomConstraint = '1'
      DefaultExpression = '1'
      FieldName = 'KOLTIME'
      Origin = '"PODTEMAUK"."KOLTIME"'
      MaxValue = 33
      MinValue = 1
    end
    object qPodtemaUKPTIMEENTER: TDateTimeField
      FieldName = 'PTIMEENTER'
      Origin = '"PODTEMAUK"."PTIMEENTER"'
    end
    object qPodtemaUKPTIMEEDIT: TDateTimeField
      FieldName = 'PTIMEEDIT'
      Origin = '"PODTEMAUK"."PTIMEEDIT"'
    end
    object qPodtemaUKPUSERENTER: TIBStringField
      FieldName = 'PUSERENTER'
      Origin = '"PODTEMAUK"."PUSERENTER"'
      Size = 80
    end
    object qPodtemaUKPUSEREDIT: TIBStringField
      FieldName = 'PUSEREDIT'
      Origin = '"PODTEMAUK"."PUSEREDIT"'
      Size = 80
    end
    object qPodtemaUKPISDELETE: TIntegerField
      FieldName = 'PISDELETE'
      Origin = '"PODTEMAUK"."PISDELETE"'
    end
    object qPodtemaUKNUMUK: TIBStringField
      FieldName = 'NUMUK'
      Origin = '"PODTEMAUK"."NUMUK"'
      Size = 10
    end
    object qPodtemaUKNUMTEMA: TIBStringField
      FieldName = 'NUMTEMA'
      Origin = '"PODTEMAUK"."NUMTEMA"'
      Size = 10
    end
    object qPodtemaUKCONTROLTYPE: TIntegerField
      FieldName = 'CONTROLTYPE'
      Origin = '"PODTEMAUK"."CONTROLTYPE"'
    end
  end
  object quPodtemaUK: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDPODTEMAUK,'
      '  IDTEMAUK,'
      '  PODTEMA,'
      '  PODTEMA_ENG,'
      '  KOLTIME,'
      '  PTIMEENTER,'
      '  PTIMEEDIT,'
      '  PUSERENTER,'
      '  PUSEREDIT,'
      '  PISDELETE,'
      '  NUMUK,'
      '  NUMTEMA,'
      '  CONTROLTYPE'
      'from PodtemaUK '
      'where'
      '  IDPODTEMAUK = :IDPODTEMAUK')
    ModifySQL.Strings = (
      'update PodtemaUK'
      'set'
      '  IDPODTEMAUK = :IDPODTEMAUK,'
      '  IDTEMAUK = :IDTEMAUK,'
      '  KOLTIME = :KOLTIME,'
      '  NUMTEMA = :NUMTEMA,'
      '  NUMUK = :NUMUK,'
      '  PODTEMA = :PODTEMA,'
      '  PODTEMA_ENG = :PODTEMA_ENG,'
      '  CONTROLTYPE = :CONTROLTYPE'
      'where'
      '  IDPODTEMAUK = :OLD_IDPODTEMAUK')
    InsertSQL.Strings = (
      'insert into PodtemaUK'
      
        '  (IDPODTEMAUK, IDTEMAUK, KOLTIME, NUMTEMA, NUMUK, PODTEMA, PODT' +
        'EMA_ENG, CONTROLTYPE)'
      'values'
      
        '  (:IDPODTEMAUK, :IDTEMAUK, :KOLTIME, :NUMTEMA, :NUMUK, :PODTEMA' +
        ', :PODTEMA_ENG, :CONTROLTYPE)')
    DeleteSQL.Strings = (
      'delete from PodtemaUK'
      'where'
      '  IDPODTEMAUK = :OLD_IDPODTEMAUK')
    Left = 312
    Top = 112
  end
  object dsControlType: TDataSource
    DataSet = qControlType
    Left = 440
    Top = 141
  end
  object qControlType: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select mtid as "CONTROLTYPE",mtlong || '#39' ('#39' || mtshort || '#39')'#39' as' +
        ' "DESC" from cj_mark_type where mtsortorder > 2 order by mtsorto' +
        'rder')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    UpdateTransaction = DMInv.trFibWrite
    Left = 488
    Top = 141
  end
end
